home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
pascal
/
shazam.exe
/
CLUSTER.EVT
< prev
next >
Wrap
Text File
|
1992-09-01
|
446b
|
20 lines
procedure hdInsert ;
{$IFDEF code}{$I cluster.src }{$ENDIF}
begin
{$IFDEF code}
Desktop^.Insert ( MakeDialog ) ;
{$ELSE}
Desktop^.Insert ( PDIALOG ( RezFile^.Get ( 'DIALOG_CLUSTER' ) ) ) ;
{$ENDIF}
end ;
procedure hdExecView ;
{$IFDEF code}{$I cluster.src }{$ENDIF}
begin
{$IFDEF code}
Desktop^.ExecView ( MakeDialog ) ;
{$ELSE}
Desktop^.ExecView ( PDIALOG ( RezFile^.Get ( 'DIALOG_CLUSTER' ) ) ) ;
{$ENDIF}
end ;